home *** CD-ROM | disk | FTP | other *** search
/ Aminet 45 / Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso / Aminet / dev / src / adasort.lha / Sort_Demo.adb < prev    next >
Text File  |  2001-08-28  |  1KB  |  61 lines
  1. -- Demo für Sortieralgorithmus
  2. -- Norman Walter, Universität Stuttgart
  3. -- Datum: 25.8.2001
  4.  
  5. with text_io,ada.integer_text_io;
  6. use  text_io,ada.integer_text_io;
  7.  
  8. with Sort;
  9. use  Sort;
  10.  
  11. procedure Sort_Demo is
  12.  
  13.  -- Demo Array auffüllen;
  14.  -- Die Zahlen sind hier ASCII-Werte.
  15.  
  16.  wahl: integer;
  17.  
  18.  Demo_Array: Feld_Typ := (65,83,79,82,84,73,78,71,69,88,65,77,80,76,69);
  19.  
  20.  begin
  21.  
  22.    New_Line;
  23.    put_line("Demonstration elementarer Sortieralgorithmen");
  24.  
  25.    Auswahl: loop
  26.  
  27.    Demo_Array := (65,83,79,82,84,73,78,71,69,88,65,77,80,76,69);
  28.  
  29.    New_Line;
  30.  
  31.    put_line("[1] Bubble Sort");
  32.    put_line("[2] Selection Sort");
  33.    put_line("[0] Ende");
  34.    New_Line;
  35.    put("Bitte wählen: ");
  36.    get(wahl);
  37.  
  38.    New_Line;
  39.  
  40.    case wahl is
  41.  
  42.      when 1 => put_line("Bubble Sort Algorithmus");
  43.                New_Line;
  44.                Display(Demo_Array);
  45.                Bubble_Sort(Demo_Array);
  46.  
  47.      when 2 => put_line("Selection Sort Algorithmus");
  48.                New_Line;
  49.                Display(Demo_Array);
  50.                Selection_Sort(Demo_Array);
  51.  
  52.      when 0 => exit Auswahl;
  53.  
  54.      when others => put_line("Fehlerhafte Eingabe");
  55.  
  56.    end case;
  57.  
  58.    end loop Auswahl;
  59.  
  60. end Sort_Demo;
  61.